home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
getit02b.zip
/
GETIT.PPS
< prev
next >
Wrap
Text File
|
1993-05-24
|
7KB
|
158 lines
;*****************************************************************************
;* Get Notes *
;* John Lundell - City Lites BBS *
;* *
;* Purpose: Gets Notes from user if PSA #6 installed. Handy to be able *
;* to view certain information about users.. can ask them to put *
;* just about anything you want here. *
;* *
;* This is my first ever attempt at any form of programming so *
;* please excuse the mess and the mistakes. BUT - I would *
;* welcome any feedback! City Lites has a conference dedicated *
;* to the PPL language and files. Call us! *
;* *
;* 701-772-5399 - HST/DS/V.32bis Lines *
;* 701-775-1143 - 2500 Lines *
;* 10+ Gigs - FREE to all Long Distance Callers!!! *
;* *
;* Ok, some of the ideas for GETIT.PPS were taken from others - *
;* most notably Clark Developments GET_ADRS.PPS and Larry Steele *
;* and Jerry Claxtons UAI.PPS both also avaiable on City Lites. *
;* *
;*****************************************************************************
;*****************************************************************************
;* Define variable types *
;*****************************************************************************
STRING Menu_Command, Answer
;*****************************************************************************
;* Start of Main Program *
;*****************************************************************************
; /* Read in user information to initialize the u_addr variables */
getuser
; /* If you have a "guest user" account then you don't want to have to force
; then through this - or maybe you have certain user levels or users whom
; you don't want to force through. Uncomment line 42 and edit as needed.*/
;
;if (cursec() = 55 | !(u_name() = "guest user")) goto abort
; /* If the Address PSA is enabled then also check to see if the Address 1
; and City fields are blank. If so, then this user has not yet given
; address information. */
:main
if ((strip(u_addr(0), " ") = "" & (strip(u_addr(1), " ") = "")) | (strip(u_addr(2), " ") = "") | (strip(u_addr(3), " ") = "") | (strip(u_addr(4), " ") = "")) then
; /* Display GADR file (located in the same place as the PPE file. This
; file can be used to display a file telling the user why the address
; information is being asked. */
if (exist(ppepath()+"GADR")) dispfile ppepath()+"GADR",GRAPH+SEC+LANG
; /* Uncomment next line to display PCBTEXT record #698 */
; disptext 698,LFBEFORE+LFAFTER
; /* Get Address 1 information using PCBTEXT record #699 */
promptstr 699,u_addr(0),50,mask_pwd(),FIELDLEN+GUIDE+UPCASE+LFBEFORE
; /* Get Address 2 information using PCBTEXT record #700 */
promptstr 700,u_addr(1),50,mask_pwd(),FIELDLEN+GUIDE+UPCASE+LFBEFORE
; /* Get City information using PCBTEXT record #701 */
promptstr 701,u_addr(2),25,mask_pwd(),FIELDLEN+GUIDE+UPCASE+LFBEFORE
; /* Get State information using PCBTEXT record #702 */
promptstr 702,u_addr(3),10,mask_pwd(),FIELDLEN+GUIDE+UPCASE+LFBEFORE
; /* Get zip code information using PCBTEXT record #703 */
promptstr 703,u_addr(4),10,mask_pwd(),FIELDLEN+GUIDE+UPCASE+LFBEFORE
; /* Get country information using PCBTEXT record #704 */
promptstr 704,u_addr(5),15,mask_pwd(),FIELDLEN+GUIDE+UPCASE+LFBEFORE
endif
; /* If the Notes PSA is enabled then also check to see if the Notes Lines
; 0 is blank. If so, then this user has not yet given notes
; */
if (psa(6) & (strip(u_notes(0)," ") = "")) then
; /* Display NOTE file (located in the same place as the PPE file. This
; file can be used to display a file telling the user why the notes
; information is being asked. */
if (exist(ppepath()+"NOTE")) dispfile ppepath()+"NOTE",GRAPH+SEC+LANG
; /* Get Notes Line 1 */
u_notes(0) = ""
inputstr "Line 1 of 5",u_notes(0),0Eh,60,mask_ascii(),FIELDLEN+GUIDE+LFBEFORE+WORDWRAP
; /* Get Notes Line 2 */
u_notes(1) = ""
inputstr "Line 2 of 5",u_notes(1),0Eh,60,mask_ascii(),FIELDLEN+GUIDE+LFBEFORE+WORDWRAP
; /* Get Notes Line 3 */
u_notes(2) = ""
inputstr "Line 3 of 5",u_notes(2),0Eh,60,mask_ascii(),FIELDLEN+GUIDE+LFBEFORE+WORDWRAP
; /* Get Notes Line 4 */
u_notes(3) = ""
inputstr "Line 4 of 5",u_notes(3),0Eh,60,mask_ascii(),FIELDLEN+GUIDE+LFBEFORE+WORDWRAP
; /* Get Notes Line 5 */
u_notes(4) = ""
inputstr "Line 5 of 5",u_notes(4),0Eh,60,mask_ascii(),FIELDLEN+GUIDE+LFBEFORE+WORDWRAP
endif
; /* If the Notes PSA is enabled then also check to see if the Notes Lines
; 0 is blank. If so, then this user has not yet given notes
; */
if (psa(2) & (strip(u_ver(0)," ") = "")) then
; /* Display BDATE file (located in the same place as the PPE file. This
; file can be used to display a file telling the user why the verify
; information is being asked. */
if (exist(ppepath()+"BDATE")) dispfile ppepath()+"BDATE",GRAPH+SEC+LANG
; /* Get Notes Line 1 */
println
inputdate "Your Birthdate",u_ver(0),0Eh
println
endif
:end
if ((strip(u_addr(0), " ") = "" & (strip(u_addr(1), " ") = "")) | (strip(u_addr(2), " ") = "") | (strip(u_addr(3), " ") = "") | (strip(u_addr(4), " ") = "")) goto noinfo
if (psa(6) & (strip(u_notes(0)," ") = "")) goto noinfo
if (psa(2) & (strip(u_ver(0)," ") = "")) goto noinfo
goto seeya
:noinfo
answer = nochar()
println
println "@X0BYou @X0FMUST@X0C@X0B answer the above information or you will be placed@X07"
println "@X0Bin this section, each time you logon to this Bulletin Board@X07"
println "@X0BSystem, until your information is logged.@X07"
println
inputyn "Do you still want to Exit (Y/N)", Answer, 0Ah
if (answer = yeschar()) goto seeya
if (answer = nochar()) goto main
:seeya
putuser
end